home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / RTF1.cpp < prev    next >
C/C++ Source or Header  |  1999-01-17  |  3KB  |  78 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "RTF1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma link "Grids"
  8. #pragma resource "*.dfm"
  9.  
  10. TForm1 *Form1;
  11.  
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.     : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::GetText (String DateiName)
  19. {
  20.   RichEdit1->Lines->LoadFromFile (DateiName);
  21. }
  22.  
  23. //---------------------------------------------------------------------------
  24. void __fastcall TForm1::PutText (String DateiName)
  25. {
  26.   String Kennung = UpperCase (ExtractFileExt (OpenDialog1->FileName));
  27.   if (Kennung == ".RTF")
  28.     RichEdit1->PlainText = false;
  29.   else
  30.     RichEdit1->PlainText = true;
  31.   RichEdit1->Lines->SaveToFile (DateiName);
  32. }
  33. //---------------------------------------------------------------------------
  34. void __fastcall TForm1::FormCreate(TObject *Sender)
  35. {
  36.   RichEdit1->Align = alClient;
  37.   RichEdit1->ReadOnly = false;
  38. }
  39. //---------------------------------------------------------------------------
  40. void __fastcall TForm1::Neu1Click(TObject *Sender)
  41. {
  42.   RichEdit1->Clear ();
  43. }
  44. //---------------------------------------------------------------------------
  45. void __fastcall TForm1::Oeffnen1Click(TObject *Sender)
  46. {
  47.   if (OpenDialog1->Execute ())
  48.     GetText (OpenDialog1->FileName);
  49. }
  50. //---------------------------------------------------------------------------
  51. void __fastcall TForm1::Speichern1Click(TObject *Sender)
  52. {
  53.   if (SaveDialog1->Execute ())
  54.     PutText (SaveDialog1->FileName);
  55. }
  56. //---------------------------------------------------------------------------
  57. void __fastcall TForm1::Ende1Click(TObject *Sender)
  58. {
  59.   Close ();
  60. }
  61. //---------------------------------------------------------------------------
  62.  
  63. void __fastcall TForm1::Ausschneiden1Click(TObject *Sender)
  64. {
  65.   RichEdit1->CutToClipboard ();
  66. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TForm1::Kopieren1Click(TObject *Sender)
  69. {
  70.   RichEdit1->CopyToClipboard ();
  71. }
  72. //---------------------------------------------------------------------------
  73. void __fastcall TForm1::Einfuegen1Click(TObject *Sender)
  74. {
  75.   RichEdit1->PasteFromClipboard ();
  76. }
  77. //---------------------------------------------------------------------------
  78.